home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Invntory < prev    next >
Encoding:
Text File  |  1985-06-20  |  341 b   |  16 lines  |  [TEXT/TRUE]
  1. ! Inventory for 5 items.
  2. !
  3. READ item1$, number1
  4. READ item2$, number2
  5. READ item3$, number3
  6. READ item4$, number4
  7. READ item5$, number5
  8.  
  9. PRINT "You have these items:"
  10. PRINT item1$, item2$, item3$, item4$, item5$
  11. PRINT number1, number2, number3, number4, number5
  12.  
  13. DATA hammers, 4, umbrellas, 2, wood stoves, 1
  14. DATA bags of salt, 4, pliers, 2
  15. END
  16.